home *** CD-ROM | disk | FTP | other *** search
/ Iona Software Demo / MacWin_IonaSoftware_DemoCD.iso / pc / demo.exe / demo.DXR / 00004_highlight objs.ls < prev    next >
Encoding:
Text File  |  1996-02-23  |  1.1 KB  |  41 lines
  1. on exitFrame
  2.   global clickheretime, spacer, pathToMain, SelfRunning
  3.   if SelfRunning <> 1 then
  4.     set the timeoutScript to "continueWithoutClick"
  5.   end if
  6.   if clickheretime > 100 then
  7.     set clickheretime to 0
  8.     play frame "click here"
  9.   end if
  10.   set clickheretime to clickheretime + 1
  11.   repeat with i = 2 to 5
  12.     if rollOver(i) then
  13.       puppetSprite(i, 1)
  14.       set temp to the castNum of sprite i
  15.       set the castNum of sprite i to the number of cast ("mainHigh" & i)
  16.       updateStage()
  17.       repeat while rollOver(i)
  18.         if the mouseDown then
  19.           exit repeat
  20.         end if
  21.         if not soundBusy(2) then
  22.           set theme to pathToMain & "music" & spacer & "duhduh"
  23.           sound playFile 2, theme
  24.         end if
  25.         if the timeoutLapsed > the timeoutLength then
  26.           exit repeat
  27.         end if
  28.         puppetSprite(i, 0)
  29.       end repeat
  30.       exit repeat
  31.     end if
  32.   end repeat
  33.   set the castNum of sprite i to temp
  34.   updateStage()
  35.   if not soundBusy(2) then
  36.     set theme to pathToMain & "music" & spacer & "duhduh"
  37.     sound playFile 2, theme
  38.   end if
  39.   go("loop")
  40. end
  41.